Macintosh Technology Seed 1996 September/Macintosh Technology Seed (September 1996) (CDRM1437020).ISO/mac/KLK 1.0a1c4/Apple Bug Reporter 1.6k2/Apple Bug Reporter 1.6k2/stack_-1.xml

Extensible Markup Language | 1996-09-06 | 29KB | 25 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.6k2</name>
    <id>-1</id>
    <cardCount>4</cardCount>
    <cardID>8637</cardID>
    <listID>3032</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Script info for this stack. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Size of script:  28656 chars.         11/17/92      w/header:  29270 chars.HANDLERS:  closeStack,displayLegalNotice,doHelp,TEXWindowClosing,getINITs,--         getMachInfo getMailMethod,goBackButton,goHome,mouseUpInPicture,multiCheckMenu,--         notImplemented,openStack,singleCheckMenu,splashScreen,triangleButtonFUNCTIONS: auxVersion,bugSent,checkMark,complainAboutPersonalInfo,maxProblemSummary,--         personalInfoCheck,secretCode,stripNonDials,text,textFileVersion∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞••••••••••••••-- Apple Bug Reporter-- Begun 7/28/91 by Barry Langdon-Lassagne-- version 1.0b1 10/11/91-- version 1.0b2 11/22/91-- version 1.0b8 11/03/92 by bRYgUY K. Carter-- version 1.0b9 08/17/93 by Barry Langdon-Lassagne-- version 1.5a2 10/31/93 by Barry Langdon-Lassagne-- ©Copyright 1991-93 by Apple Computer, Inc.-- All Rights Reserved.--∆ Text to be localised indicated by “∆” (option-j)--  When localising this stack, do a search for ∆ in--  All the scripts, especially the Background and--  Stack scripts.-- XCMDs/XFCNs USED BY THIS STACK:-- HpopupMenu()      -- Author:  Guy de Picciotto.-- FilesInSys()      -- Author:  Jay Hodgon, Apple Computer-- FileVersion()     -- Author:  Jay Hodgon, Apple Computer-- XGestalt()-- DropInOB          -- Author:  Rick Eames, Apple Computer-- AUXisRunning()    -- Authors: Anup Murarka,Eric Carlson Apple Computer-- MachineName()     -- Author:  Barry Langdon-Lassagne, Apple Computer-- ModalDialog()     -- Author:  Kevin Calhoun ( v.1.0.3 )-- ReadStrResource() -- Author:  Barry Langdon-Lassagne, Apple Computer-- TEXWindow()       -- Author:  ???••••••••••••••function auxVersion-- this reflects the version of software for which-- the outside developers (or whomever) are reporting bugs-- This information is automatically entered in the Miscellaneous-- field of the Configuration cardsreturn "" -- put "ElectroGlide" or "A/UX 3.0.2" or somethingend auxVersionfunction textFileVersionreturn "Text File Version: 1005 (Apple Bug Reporter Stack)"end textFileVersionfunction maxProblemSummary-- The maximum number of characters allowed in the Problem Summary-- Note: change this number in the Help text as wellreturn 80end maxProblemSummary----------------------------------------------------------------------- ∆ The majority of text strings appear here--   so that this stack can more easily be localised for other countries--   When you need a piece of text, call this function. For instance,--   to tell the user their problem report has already been sent, write--   a script that says:--     answer text("alreadySent") with text("OK")----   Then, when this stack is localised, all that needs to be done is change the--   text as it appears herefunction text whichreturn ReadStrResource(which)-- else-- return "Error - Text to place here could not be located!"-- end ifend text-----------------------------------------------------------------------on openStackglobal oldUserLevel, oldtextArrows, oldBlindTyping, cqfCustomif the screenRect = "0,0,512,342" then -- Macintosh SE size monitorhide menubarend if-- Check to see if they have a recent enough HyperCardif the version < 2.0 thenanswer text("wrongVersion")doMenu "Quit HyperCard"else-- remember system state, set it the way we want itput the userLevel into oldUserLevelset the userlevel to 5get textArrowsput it into oldtextArrowsset textArrows to TRUEget blindTypingput it into oldBlindTypingset blindTyping to FALSEput FALSE into cqfCustom -- TRUE if this is the CQF Version 8/16/94-- if bg field "Bugs Reported" of card "Cover Card" of bg "Bug List" contains "•" then-- answer text("whatToDoAboutUnsentBugs")¬-- with text("Nothing") or text("View List") or text("Send Them")-- if it is text("View List") then-- go to card "Index Card"-- else if it is text("Send Them") then-- go to card "Index Card"-- send mouseup to bg button "Send All Unsent Reports"-- end if-- end ifend if -- version checkpass openStackend openStackon mouseUpInPicture-- answer word 2 of the paramsput word 2 of the params into xclose window the value of xend mouseUpInPictureon closeStackglobal oldUserLevel,oldtextArrows,oldBlindTypingshow menubarset the userLevel to oldUserLevelset textArrows to oldtextArrowsset blindTyping to oldBlindTypingpass closeStackend closeStackon goBackButton whatanswer "Go Back Button is no longer needed" && what-- if what is "show" then-- set the visible of bg button "Go Back" of cd "Cover Card" to TRUE-- set the visible of bg field "Go Back Title" of cd "Cover Card" to TRUE-- else if what is "hide" then-- set the visible of bg button "Go Back" of cd "Cover Card" to FALSE-- set the visible of bg field "Go Back Title" of cd "Cover Card" to FALSE-- end ifend goBackButtonfunction personalInfoCheckif (line 3 of bg field "Personal Info" of cd "Cover Card" is empty or¬ -- first nameline 4 of bg field "Personal Info" of cd "Cover Card" is empty or¬ -- last nameline 5 of bg field "Personal Info" of cd "Cover Card" is empty or¬ -- phoneline 11 of bg field "Personal Info" of cd "Cover Card" is empty or¬ -- e-mail addressline 12 of bg field "Personal Info" of cd "Cover Card" is empty) then -- countryput text("NeedMorePersonalInfo2") into errorelse if line 16 of bg field "Personal Info" of cd "Cover Card" is "on" and¬(text("Server Name") is empty or text("Server Zone Name") is empty or¬text("Server Volume Name") is empty) thenput text("ServerNotConfigured2") into errorelseput "NoErr" into errorend ifreturn errorend personalInfoCheckfunction complainAboutPersonalInfo--  global whereWeCameFrom, lastBugModified-- used in script troubleshootBug-- and in button script for send allanswer text("needMorePersonalInfo") with text("Cancel") or text("OK")if it is text("OK") then-- put empty into whereWeCameFrom-- put the id of this card into lastBugModifiedsend personalInfo to cd 1 -- handler is in bg script BL-L 7/31/93return text("OK")else -- Cancelreturn text("Cancel")end ifend complainAboutPersonalInfoon getMachInfo --gets all of the Machine info collected by the Xthings.global machDeslock screenput empty into machDesgo bg "dataworld"get line 10 of background field "This Machine"put the first word in line it of background field "gestaltMachineType" ¬& return after machDesget line 3 of background field "This Machine"put the first word in line it of background field "gestaltKeyboardType" ¬& return after machDesget line 6 of background field "This Machine"put "RAM=" & it & return after machDesget line 4 of background field "This Machine"put "Logical RAM=" & it & return after machDesget line 9 of background field "This Machine"if it = 0 then put "Virtual Memory turned OFF" & return after machDesget line 1 of background field "This Machine"if it = 0 then put "32-bit addressing NOT enabled" & return after machDesget line 2 of background field "This Machine"if it = 0 then put "NO FPU" into the seventh line of background field "Output"else put "FPU Type =" & the first word of line (it+1) of background field "gestaltFPUType"¬after machDesget line 11 of background field "This Machine"put "ROM Version=" & it & return after machDesput "............................................................................" ¬after machDesput machdes after bg field "Output"go bg "entry"unlock screenend GetMachInfofunction stripNonDials theNumber-- ∆ remove all "non phone" charactersrepeat with count = the length of theNumber down to 1if char count of theNumber is not in "0123456789"then delete char count of theNumberend repeatreturn theNumberend stripNonDialsfunction secretCode xglobal cqfCustomput FALSE into doContinueput "" into stackType -- put "" into stackType if phone # needed for bug number; put "Special" if phone # is not neededif stackType is not "Special" thenif line 5 of bg field "Personal Info" of card "Cover Card" is "" thenreturn "Error"else -- there is a phone number alreadyput TRUE into doContinueend ifelse -- Special, phone number unnecessaryput TRUE into doContinueend if -- stackTypeif doContinue is TRUE thenput stripNonDials(line 5 of bg field "Personal Info" of card "Cover Card") into phoneCode-- put bg field "Site Number" of cd "Cover Card" into phoneCode -- Old CQF method, leave commented output the time into tempconvert temp to secondsput char 3 to 10 of temp into theSecsput the number of chars of phoneCode into pnif pn < 4 thenput "0000" before phoneCodeput the number of chars of phoneCode into pnend if-- put the number of cards of bg "Bug Report" into bugNumber-- put bugNumber - 1 into bugNumberget cd field "Last Bug Number" of card "Cover Card"put it + 1 into cd field "Last Bug Number" of card "Cover Card"put it + 1 into bugNumberput "000" before bugNumberput the number of chars of bugNumber into bput char b-2 to b of bugNumber into bugNumberput char pn-3 to pn of phoneCode & "." & bugNumber into secretNumber-- put char 1 to pn of phoneCode & "." & bugNumber into secretNumber -- Old CQF method, leave commented outif cqfCustom thenput "CQF " before secretNumber -- use this for CQFend if -- cqfCustomreturn secretNumberend ifend secretCodeon goHomeif the optionKey is not down thendomenu "compact stack"end ifanswer text("whereToGo") with text("GoHome") or text("Quit") or text("Cancel")if it is text("GoHome") thenvisual effect zoom indisplayLegalNoticego homeelse if it is text("Quit") thendisplayLegalNoticedoMenu "Quit HyperCard"end ifend goHomeon displayLegalNoticeset the cursor to busyset the lockScreen to TRUEset the cursor to busygo firstset the cursor to busyset the visible of card field "Legal Notice" to TRUEset the cursor to busyset the lockScreen to FALSErepeat with i= 1 to 5wait 1 secs -- wait 5 secondsif the mouse is down then exit repeatset the cursor to busyend repeatset the cursor to busyset the visible of card field "Legal Notice" to FALSEset the cursor to busyend displayLegalNoticeon splashScreen-- answer text("stackName") & return & text("stackAuthor") &¬-- return & text("copyRightNotice") with text("Help") or text("OK")put ModalDialog("About Box",dialogInput,cardCenter) into aResultif line 1 of aResult is not empty then -- they want Helpreturn TRUEelsereturn FALSEend ifend splashScreenon doHelp-- note: the help text is located in an invisible field on the first card-- called "Help Text" (actually it's a background field)-- to access it, execute the following in the message box:-- show bg field "Help Text"put text("HelpWindowName") into helpWindowif there is a window helpWindow thensend "select" to window helpWindowexit doHelpend ifput (the loc of window (the short name of this stack)) into stackLeftTopput (the left of bg field "Help Text" of cd 1) + (item 1 of stackLeftTop) into theLeftput (the top of bg field "Help Text" of cd 1)  + (item 2 of stackLeftTop) into theTopput (the right of bg field "Help Text" of cd 1)  + (item 1 of stackLeftTop)into theRightput (the bottom of bg field "Help Text" of cd 1)  + (item 2 of stackLeftTop)into theBottomput "Geneva" into theFontput 10 into theFontSizeput 13 into theLineHeightput -1 into theLineLengthput bg fld "Help Text" of cd 1 into theTextTEXWindow helpWindow,theText,theLeft,theTop,theRight,theBottom,theFont,theFontSize,theLineHeight,theLineLengthget the resultif it is not empty thenanswer itend ifend doHelpon TEXWindowClosing theWindowName,textIsDirty-- required by XCMD TEXWindow-- BL-L 11/1/93 adds ability to save changes from a floating text window (from XCMD TEXWindow)-- Don't allow changes to Help text. (To change help text, directly modify the-- bg field "Help Text" on the cover card).--put the globalRect of window theWindowName into theRectif theWindowName is "Notes" and textIsDirty thenput the text of window theWindowName into bg fld theWindowName of cd "Cover Card"end ifreturn TRUEend TEXWindowClosingon saveTEXWindowInfo theWindowName,textIsDirty-- BL-L 11/1/93 adds ability to save changes from a floating text window (from XCMD TEXWindow)-- Don't allow changes to Help text. (To change help text, directly modify the-- bg field "Help Text" on the cover card).--put the globalRect of window theWindowName into theRect--  set lockText of bg fld theWindowName to falseend saveTEXWindowInfofunction checkMark whatif what is "no space" thenreturn "!"elsereturn " !"end ifend checkMarkfunction bugSentput FALSE into statif the short name of this bg is "Bug Report" thenif bg field "Sent" is not empty and¬bg field "Sent" is not text("neversent") and¬bg field "Sent" is not text("newBug") and¬bg field "Sent" is not text("unsent") thenput TRUE into stat -- it's been sentelseput FALSE into stat -- bug has not been sent yetend ifend ifreturn statend bugSenton singleCheckMenu listType-- This script is used to activate the popup menus-- I assume NO SUBMENUS for this script-- It is for popup menus that have only one item checked at a time-- need a bg field called   listType List   that has all the menuitems-- (don't forget to modify the bg script to show and hide this new List field)-- need a bg field called listType to store the menu result-- Example: on the Problem Report cards, there is a popup menu for--      The severity of a bug, called "Priority"--      Here is what needs to be created:--         1) a button called "Priority    " (that's four spaces after)--            the script for the "Priority    " button should read:--               on mouseDown--                 singleCheckMenu "Priority"--               end mouseDown--               on mouseUp--                 set the hilight of me to FALSE--               end mouseUp--         2) a button with a down arrow, overlaying the four spaces--             the script for the down arrow button should send--             mouseups and mousedowns to the "Priority    " button--         3) a bg field called "Priority" where the result will go--         4) a bg field (invisible), called "Priority List"--            listing all proper priorities--         5) Modifications to the bg script to show and hide the--            "Priority List" bg field (see the other scripts there)set cursor to busyput listType & " List" into listFieldif the optionKey is down and the shiftKey is down thenset the visible of bg field listField to NOT visible of bg field listFieldexit singleCheckMenuelse if bugSent() thenanswer text("beenSent")exit singleCheckMenuend ifset the hilight of the target to TRUEput bg field listField into itemList-- add checkmark to itemList-- debug checkpoint-- See if there's a menuitem to put a checkmark next to...set cursor to busyput the number of lines of itemList into endLineif bg field listType ≠ EMPTY thenif bg field listType is in itemList then-- Find the item in the listput offset(bg field listType,itemList) into startCharLocif startCharLoc > 0 then -- we found a match!-- check to see if we really found it (see if item has commas or carriage returns on both sides of it)put char (startCharLoc - 1) of itemList into prevCharput char (startCharLoc + the length of bg field listType) of itemList into followCharif (prevChar is "," or prevChar is return) and (followChar is "," or followChar is return) thenput checkMark() after char (startCharLoc + the length of bg field listType - 1) of itemListelse -- gotta look for a match the hard way-- search through itemList for the correct matchrepeat with aLine=1 to endLineset cursor to busyif bg field listType is in line aLine of itemList thenif the number of items of line aLine of itemList > 1 then -- Submenusrepeat with j=1 to the number of items of line aLine of itemListset cursor to busyif item j of line aLine of itemList is bg field listType thenput checkMark() after item j of line aLine of itemListexit repeat -- jump out to save timeend ifend repeatif j = the number of items of line aLine of itemList then -- check "Other…"put checkMark() after line endLine of itemListend if -- aline=endlineexit repeat -- get out of the bigger repeat, since we found the itemelse -- there are no submenusif bg field listType is line aLine of itemList thenput checkMark() after line aLine of itemListexit repeat -- get out of the bigger repeat, since we found the itemend if -- field is line aLine of itemListend if -- number of items > 1end if -- bg field listType is in line aLine...end repeat -- aLineif aline = endline then -- check "Other…"put checkMark() after line endLine of itemListend if -- aline=endlineend if -- prevChar & followChar are commas or returnsend if -- startChar > 0else -- it's not in the list, check "Other…"put checkMark() after line endLine of itemListend if -- bg field listType is in itemListend if -- bg field listType ≠ EMPTY-- display popupmenuset the cursor to arrowput textheight of the target into TheTextHeightput HPopUpMenu(itemList,0, ¬(the bottom of the target), ¬  --vert coords¬the left of the target  + 1)¬  --horiz coords¬into ChosenLineset cursor to watchif ChosenLine is not 0 thenput item 1 of ChosenLine into linenoput item 2 of ChosenLine into itemnoput line lineno of bg field listField into templineput item itemno of templine into bg field listTypeif templine is "Other…" thenask text("askEnterOther") & listTypeif it is not empty thenput it into bg field listTypeend ifend ifend ifend singleCheckMenuon multiCheckMenu listType-- This script is used to make the popup menus come alive.-- I assume NO SUBMENUS for this script.-- It is for popup menus that can have more than one item checked at a time.-- If an item is chosen that is already checked, it will be deleted from the-- list generated. The generated list goes into bg field listType.---- need a bg field called   listType List   that has all the menuitems-- (don't forget to modify the bg script to show and hide this new List field)-- need a bg field called listType to store the menu result-- Example: on the Problem Report cards, there is a popup menu for--      The severity of a bug, called "Priority"--      Here is what needs to be created:--         1) a button called "Priority    " (that's four spaces after)--            the script for the "Priority    " button should read:--               on mouseDown--                 singleCheckMenu "Priority"--               end mouseDown--               on mouseUp--                 set the hilight of me to FALSE--               end mouseUp--         2) a button with a down arrow, overlaying the four spaces--             the script for the down arrow button should send--             mouseups and mousedowns to the "Priority    " button--         3) a bg field called "Priority" where the result will go--         4) a bg field (invisible), called "Priority List"--            listing all proper priorities--         5) Modifications to the bg script to show and hide the--            "Priority List" bg field (see the other scripts there)set cursor to watchput listType & " List" into listFieldif the optionKey is down and the shiftKey is down thenset the visible of bg field listField to NOT visible of bg field listFieldexit multiCheckMenuelse if bugSent() thenanswer text("beenSent")exit multiCheckMenuend ifput bg field listField into itemListset the hilight of the target to TRUE-- add checkmarks to itemListput FALSE into itIsOther -- initialize variableif bg field listType is not "" thenput the number of items of bg field listType into listItemsput the number of lines of itemList into endLinerepeat with j= 1 to listItemsrepeat with i=1 to endLineput line i of itemList into tempaput item j of bg field listType into tempbif line i of itemList is item j of bg field listType thenput checkMark() after line i of itemListexit repeat -- inner repeat no longer necessaryend ifend repeat -- iif i is endLine then -- then it's “Other…”put TRUE into itIsOtherend ifend repeat -- jif itIsOther then -- mark the Other… menuitemput checkMark() after line endLine of itemListend ifend if-- display popupmenuset cursor to arrowput textheight of the target into TheTextHeightput HPopUpMenu(itemList,0, ¬(the bottom of the target), ¬  --vert coords¬the left of the target  + 1)¬  --horiz coords¬into ChosenLineif ChosenLine is not 0 then -- anything was chosenif bugSent() is not TRUE thenput item 1 of ChosenLine into linenoput item 2 of ChosenLine into itemnoput line lineno of bg field listField into templineset cursor to watchif templine is not "Other…" and the last word of line lineno of itemList is checkMark("no space") then-- delete the item rather than insert itrepeat with i=1 to the number of items of bg field listTypeif item i of bg field listType is templine thendelete item i of bg field listTypeexit repeatend ifend repeatelseif templine is "Other…" thenask text("askEnterOther") & listTypeif it is not empty thenput it into item itemno of templine -- so that following if will parse correctlyelse -- the user hit "Cancel"put "" into item itemno of templineend ifend ifif bg field listType is "" thenput item itemno of templine into bg field listTypeelseif item itemno of templine is not "" thenput "," & item itemno of templine after bg field listTypeend ifend ifend if       -- delete vs insertelse -- shouldn't be modifying this cardanswer text("beenSent")end if -- bugSent()…end if -- anything was chosenend multiCheckMenuon getINITs-- Thanks to Jay Hodgon for these nifty XFCNs.put FilesInSys("INIT") into INITListput FilesInSys("cdev") into CDEVList--RDEV's are another type - printer documentsset cursor to busyput "INITS: " into bg field "other stuff"repeat with index = 1 to number of lines of InitListput line index of InitList & ", " after bg field "other stuff"end repeatdelete last char of bg field "other stuff" -- the commadelete last char of bg field "other stuff" -- the commaput return & "CDEVS: " after bg field "other stuff"repeat with index = 1 to number of lines of CDEVListput line index of CDEVList & ", " after bg field "other stuff"end repeatdelete last char of bg field "other stuff" -- the commadelete last char of bg field "other stuff" -- the comma-- DEBUGGER VERSIONput return & "MacsBug:" && FileVersion("dbgr","mxbg") after bg field "other stuff"  -- MACSBUGend getINITson getMailMethod whatglobal cqfCustom-- used by the buttons that send bugs by mail-- this is here because when sending bugs individually, we want-- to be asked which method each time, but when sending as a group-- we only want to be asked onceglobal mailMethod, mailMethodTemp, ccAddress, ccAddressFlagif line 16 of bg field "Personal Info" of cd "Cover Card" is "on" thenput "Server" into mailMethodexit getMailMethodend ifput "None" into mailMethodif mailMethodTemp is empty thenput text("Default Mail Type") into mailMethodTempend ifput bg field "ccAddress" of card 1 into ccAddressif what is "many" then-- Make text appropriate for sending many bugsput text("placeInOutBasket2") into line 10 of dialogInputput text("saveBugTo2") into line 9 of dialogInputput text("bugSentTo2") into line 8 of dialogInputelse -- only sending one bug-- Make text appropriate for sending a single bugput text("placeInOutBasket") into line 10 of dialogInputput text("saveBugTo") into line 9 of dialogInputput text("bugSentTo") into line 8 of dialogInputend if-- BL-L 10/1/93 added custom dialog hereif mailMethodTemp is "Text File" thenput "on" into line 4 of dialogInput -- highlight "Text File" buttonelse -- AppleLink - the defaultput "on" into line 3 of dialogInput -- highlight "AppleLink" buttonend if -- mailMethodTempif ccAddress is empty and text("APPLELINK CC") is not empty thenput text("APPLELINK CC") into ccAddress -- 1.6d12 BL-L 5/8/94 Use default from resourceput TRUE into ccAddressFlagend if -- ccAddress emptyif ccAddress is not empty thenput ccAddress into line 6 of dialogInput -- show ccAddress, if there is oneif ccAddressFlag is empty thenif cqfCustom thenput TRUE into ccAddressFlagelseput FALSE into ccAddressFlagend if -- cqfCustomend if -- ccAddressFlagif ccAddressFlag thenput "on" into line 5 of dialogInput -- highlight "Send a Copy to" checkbox if applicableend ifend ifput text("APPLELINK") into line 7 of dialogInput-- XFCN for custom Modal Dialogput ModalDialog("Send Bug",dialogInput,cardCenter) into dialogOutputif line 1 of dialogOutput is not text("Cancel") thenif line 3 of dialogOutput is "on" then -- remember button settings for next timeput "AppleLink" into mailMethodTempelse -- Text File button was selectedput "Text File" into mailMethodTempend ifif line 5 of dialogOutput is "on" then -- sending to a second addressput TRUE into ccAddressFlag -- remember whether they're sending to a second addresselseput FALSE into ccAddressFlagend ifif ccAddressFlag then -- see if they want bug to go to a second addressif line 4 of dialogOutput is "on" then -- hey! they're sending to a text fileanswer text("Send as Text Error 1") & line 6 of dialogOutput¬& text("Send as Text Error 2") with text("Cancel") or text("Continue")if it is not "Continue" thenput "None" into mailMethodexit getMailMethodend if -- not Continueend if -- text file errorif line 6 of dialogOutput is empty then -- hey! They didn't give an addressanswer text("No Forward") with text("Cancel") or text("Continue")if it is text("Cancel") thenput "None" into mailMethodexit getMailMethodend ifend if -- line 6put line 6 of dialogOutput into ccAddressput ccAddress into bg field "ccAddress" of card 1end if -- ccAddressFlagif line 3 of dialogOutput is "on" then -- sending to AppleLinkput "AppleLink" into mailMethodelse -- Text File (if line 4 of dialogOutput is "on" then) could put alternate methods hereput "Text File" into mailMethodend ifelseput "None" into mailMethod -- didn't send itend if -- it is "OK"end getMailMethodon notImplemented tWhat-- beep 2answer "This feature is not implemented as of" && the date & return &¬"--•" && tWhatend notImplementedon triangleButton tMessage, tObjectType, tClickLoc--• Added by bRYgUY K. Carter - 11/17/92--• A more generic script for the "Triangle" menu buttons--• Figures out which button is "behind" it and send the appropriate message--• to that buttonset cursor to watchdo "put the number of" && tObjectType & "s into tNumObjects"repeat with B = 1 to tNumObjectsdo "put the short name of" && tObjectType && B && "into tObjectName"if tObjectName contains "Triangle" then next repeatdo "put the rect of" && tObjectType && B && "into tObjectRect"if tClickLoc is within tObjectRect thendo "send" && quote & tMessage & quote && "to" && tObjectType && Bexit triangleButtonend ifend repeatend triangleButtonon customDelete which  -- formerly configDelete & myDelete BL-L 8/16/94if which is empty thenanswer text("deleteCard") with text("Cancel") or text("OK")if it is "OK" thenset the cantDelete of this card to FALSEdoMenu "Delete Card"end ifelse if which is "no message" thenset the cantDelete of this card to FALSEdoMenu "Delete Card"end ifend customDelete</script>
    <background id="3986" file="background_3986.xml" name="Bug Report" />
    <background id="4715" file="background_4715.xml" name="Configuration" />
    <background id="8289" file="background_8289.xml" name="Bug List" />
    <card id="8637" file="card_8637.xml" marked="false" name="Cover Card" owner="8289" />
    <card id="6151" file="card_6151.xml" marked="false" name="Configuration Title Card" owner="4715" />
    <card id="2102" file="card_2102.xml" marked="false" name="" owner="4715" />
    <card id="3802" file="card_3802.xml" marked="false" name="Sample Problem Description" owner="3986" />
</stack>